home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir36 / batmouse.zip / DIRECTOR.BAT < prev    next >
DOS Batch File  |  1993-08-20  |  5KB  |  231 lines
  1. @echo off
  2. set scrn=on
  3. if not x%menu%==x goto MAINMENU
  4. goto more1
  5. rem REPLY.COM SETS THE CORRESPONDING DECIMAL VALUE OF THE ASCII
  6. rem KEY PRESSED INTO THE DOS ERRORLEVEL REGISTER  -----
  7. rem F1=59, F2=-60, F3=-61, F4=-62,  F5=-63,  y=121,  Y=89,  N=78, n=110, ESCP=27!
  8. :PAGEDOWN
  9. if %menu%==1 goto more2
  10. if %menu%==2 goto more3
  11. goto more1
  12. :PAGEUP
  13. if %menu%==1 goto more3
  14. if %menu%==2 goto more1
  15. goto more2
  16. :more1
  17. set menu=1
  18. goto mainmenu
  19. :more2
  20. set menu=2
  21. goto mainmenu
  22. :more3
  23. set menu=3
  24. :mainmenu
  25. c:
  26. REM CD \ ----- REINSTATE THIS LINE TO USE SYSTEM IN ROOT DIR
  27. CURSOFF
  28. if %scrn%==on goto scn
  29. GOTO %menu%
  30. :1
  31. echo %6;%7m
  32. echo 4H  WORD PROCESSOR  
  33. echo 4H  POWER MENU      
  34. echo 34H  NETWORK LOGIN   
  35. echo 34H  FORM TOOL       
  36. echo 34H  HIJAAK          
  37. echo 34H  BUSINESS SYSTEM 
  38. echo 34H  PAINT BRUSH     
  39. echo 34H                  
  40. echo 8H1/3
  41. GOTO ENDSCR
  42. :2
  43. echo %6;%7m
  44. echo 4H  SCREEN PAINTER  
  45. echo 4H  WINDOWS         
  46. echo 34H  SOLITAIRE       
  47. echo 34H  BASIC           
  48. echo 34H  MODIFIED BACKUP 
  49. echo 34H  NORTON UTILITIES
  50. echo 34H  GAMES MENU      
  51. echo 34H                  
  52. echo 8H2/3
  53. GOTO ENDSCR
  54. :3
  55. echo %6;%7m
  56. echo 4H  AUTOCAD         
  57. echo 4H  XTREE           
  58. echo 34H  ACCOUNTING      
  59. echo 34H  SET BACKUP DATE 
  60. echo 34H  TAPE BACKUP     
  61. echo 34H  ZIP PROGRAM     
  62. echo 34H  DISK LABELS     
  63. echo 34H                  
  64. echo 8H3/3
  65. :ENDSCR
  66. echo 
  67. CURSON
  68. :REENTER
  69. BATMOUSE
  70. if not %vc%==- goto mouse
  71. if errorlevel 72 if not errorlevel 73 goto help
  72. if errorlevel 104 if not errorlevel 105 goto help
  73. if errorlevel 68 if not errorlevel 69 goto pagedown
  74. if errorlevel 81 if not errorlevel 82 goto f9
  75. if errorlevel 27 if not errorlevel 28 goto F9
  76. if errorlevel 67 if not errorlevel 68 goto F9
  77. if errorlevel 113 if not errorlevel 114 goto F9
  78. set scrn=on
  79. if errorlevel 66 if not errorlevel 67 goto F8%menu%
  80. if errorlevel 65 if not errorlevel 66 goto F7%menu%
  81. if errorlevel 64 if not errorlevel 65 goto F6%menu%
  82. if errorlevel 63 if not errorlevel 64 goto F5%menu%
  83. if errorlevel 62 if not errorlevel 63 goto F4%menu%
  84. if errorlevel 61 if not errorlevel 62 goto F3%menu%
  85. if errorlevel 60 if not errorlevel 61 goto F2%menu%
  86. if errorlevel 59 if not errorlevel 60 goto F1%menu%
  87. set scrn=off
  88. goto badkey
  89. :mouse
  90. if %hr%==1 goto pageup
  91. if %hr%==25 goto pagedown
  92. if %hr%==2 goto pageup
  93. if %hr%==24 goto pagedown
  94. if %hr%==3 goto pageup
  95. if %hr%==23 goto pagedown
  96. if %hr%==21 if %vc%==62 goto HELP
  97. if %hr%==22 if %vc%==62 goto F9
  98. if %hr%==22 if %vc%==63 goto F9
  99. if %vc%==31 goto callprog
  100. if %vc%==32 goto callprog
  101. if %vc%==33 goto callprog
  102. if %vc%==34 goto callprog
  103. if %vc%==35 goto callprog
  104. if %vc%==36 goto callprog
  105. if %vc%==37 goto callprog
  106. if %vc%==38 goto callprog
  107. if %vc%==39 goto callprog
  108. if %vc%==40 goto callprog
  109. if %vc%==41 goto callprog
  110. if %vc%==42 goto callprog
  111. if %vc%==43 goto callprog
  112. if %vc%==44 goto callprog
  113. if %vc%==45 goto callprog
  114. goto badkey
  115. :callprog
  116. set scrn=on
  117. if %hr%==7 goto F1%menu%
  118. if %hr%==9 goto F2%menu%
  119. if %hr%==11 goto F3%menu%
  120. if %hr%==13 goto F4%menu%
  121. if %hr%==15 goto F5%menu%
  122. if %hr%==17 goto F6%menu%
  123. if %hr%==19 goto F7%menu%
  124. if %hr%==21 goto F8%menu%
  125. :badkey
  126. echo 
  127. set scrn=off
  128. goto REENTER
  129. :F11
  130. WS2
  131. goto MAINMENU
  132. :F21
  133. SET PROGTODO=PWR
  134. goto END
  135. :F31
  136. SET PROGTODO=LI
  137. goto END
  138. :F41
  139. SET PROGTODO=FORM
  140. goto END
  141. :F51
  142. SET PROGTODO=HIJ
  143. GOTO END
  144. :F61
  145. SET PROGTODO=FOTO
  146. GOTO END
  147. :F71
  148. SET PROGTODO=PB
  149. GOTO END
  150. :F81
  151. goto MAINMENU
  152. :F12
  153. SET PROGTODO=SAY
  154. GOTO END
  155. :F22
  156. cd \windows
  157. win
  158. goto MAINMENU
  159. :F32
  160. SET PROGTODO=cards
  161. GOTO END
  162. :F42
  163. SET PROGTODO=MORT
  164. GOTO END
  165. :F52
  166. SET PROGTODO=BACKEMUP
  167. GOTO END
  168. :F62
  169. CALL norton
  170. goto MAINMENU
  171. :F72
  172. cd \GAMES 
  173. call GAMESMNU
  174. GOTO MAINMENU
  175. :F82
  176. goto MAINMENU
  177. :F13
  178. SET PROGTODO=ACAD
  179. GOTO END
  180. :F23
  181. \MISC\XTREE
  182. goto MAINMENU
  183. :F33
  184. SET PROGTODO=QB
  185. GOTO END
  186. :F43
  187. c:\tnc\db3\chngbkup
  188. goto MAINMENU
  189. :F53
  190. CALL \tapesyst
  191. goto MAINMENU
  192. :F63
  193. CD \PKMENU
  194. CALL PKZMENU
  195. CD \
  196. goto MAINMENU
  197. :F73
  198. CD \DSKLIST
  199. CALL DISKLIST
  200. CD \
  201. goto MAINMENU
  202. :F83
  203. goto MAINMENU
  204. :HELP
  205. SHOW HELP
  206. BATMOUSE
  207. :SCN
  208. set scrn=off
  209. echo H
  210. echo 
  211. SHOW DIRSCN%1
  212. echo %2;%3m
  213. echo H░░░░░░░░░░░░░░░░░░░░░ P E R S O N A L  D I R E C T O R ░░░░░░░░░░░░░░░░░░░░░░░
  214. echo %4;%5m
  215. echo 0H F1 
  216. echo 0H F2 
  217. echo 30H F3 
  218. echo 30H F4 
  219. echo 30H F5 
  220. echo 30H F6 
  221. echo 30H F7 
  222. echo 30H F8 
  223. echo 61H H - HELP 
  224. echo 61H F9 - EXIT TO DOS 
  225. echo 61H F10 - PAGE DOWN  
  226. GOTO %MENU%
  227. :F9
  228. SET PROGTODO=CLS
  229. :END
  230. %PROGTODO%
  231.